home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Utilities / Programming / MT2Trivial 2.1.3 / MT2Trivial 2.1.3 ƒ / MT2Trivial Templates ƒ / MenuComm.p.Trivial < prev    next >
Encoding:
Text File  |  1996-07-28  |  311 b   |  17 lines  |  [TEXT/MPS ]
  1.  
  2. {%%DOC: MenuComm.p.Trivial -- begin}
  3.  
  4. PROCEDURE DoMenuCommand(event: EventRecord; var quit : Boolean);
  5.  
  6. VAR
  7.   menuResult: longint;
  8.   menu,mitem: integer;
  9.  
  10. BEGIN
  11.   menuResult:=MenuSelect(event.where);
  12.   menu:=HiWord(menuResult);
  13.   mitem:=LoWord(menuResult);
  14.   
  15.   CASE menu OF
  16. {%%DOC: MenuComm.p.Trivial -- eof}
  17.